100 PRINT"[147]" 110 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087 120 UC$=CHR$(155):UV=1214:UF=196:UV=2238 130 UD$="":UP$=" " 300 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,21 305 PRINT"[147] A TPUG EDUCATIONAL PROGRAM 310 [153]" FOR C64 COMPUTERS 315 PRINT" GRADES K TO 1 ":GOSUB791 320 PRINT" [146]"; 325 PRINT" [146]"; 326 PRINT" [146]"; 327 PRINT" [146]"; 330 PRINT" MISSING NUMBER [146]"; 335 PRINT" [146]"; 336 PRINT" [146]"; 337 PRINT"[159] [146]"; 340 PRINT" [146]":GOSUB791:GOSUB760 345 PRINT" INSTRUCTIONS? Y/N 350 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]350 355 [139]R$[178]"Y"[167][141]400 360 [153]"LOAD AND AWAY WE GO............":[141]791:[141]700 365 [153]"LOAD":[141]790:[137]1000 400 [151]53280,0:[151]53281,0:[151]53272,23: 405 [153]"LOAD  RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT 407 PRINT"[153] [201]NSTRUCTIONS TO BE READ TO THE STUDENT. 408 [153]" ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND 410 PRINT "[159] [217]OU WILL SEE A LIST OF THE NUMBERS FROM 1 TO 10. 415 [153] " (null)HERE WILL BE A BLANK WHERE ONE NUMBER IS MISSING. 425 PRINT " [212]HE COMPUTER WANTS TO KNOW WHAT NUMBER IS MISSING." 430 PRINT " [215]HEN YOU FIGURE OUT WHICH NUMBER 432 [153] " IS MISSING, TYPE IT INTO THE" 434 [153] " COMPUTER AND PRESS (null)VAL(null)(null)(null)(null)WAIT." 436 [141]820 438 [153] "OPENLOAD RIGHT$F YOU GET THE ANSWER RIGHT, YOU" 440 [153] " WILL SEE A BIG SMILING FACE. " 442 [153] " RIGHT$F YOU GET IT WRONG, YOU WILL SEE A SAD FACE." 444 [153] " (null)E DON'T WANT ANY SAD FACES, DO WE?" 446 [153] " RIGHT$F YOU GET THE ANSWER WRONG, YOU CAN TRY AGAIN. 448 PRINT " [212]HERE WILL BE 10 MISSING NUMBERS FOR YOU TO GUESS." 495 GOSUB820:RETURN 699 : 700 REM SOUND 705 SS=54272:FORE=SS TOSS+28:POKEE,0:NEXT 710 POKE54296,15:POKE54277,42:POKE54278,250 715 POKE54276,23:POKE54273,23:POKE54272,191 720 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT 725 POKE54296,0:RETURN 729 : 730 REM SOUND 735 SS=54272:FORE=SS TOSS+28:POKEE,0:NEXT 740 POKE54296,15:POKE54277,18:POKE54278,242 745 POKE54276,33:POKE54273,4:POKE54272,48 750 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT 755 POKE54296,0:RETURN 759 : 760 REM SOUND 765 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT 770 POKE54296,6:POKE54277,42:POKE54278,250 775 POKE54276,23:POKE54273,23:POKE54272,191 780 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT 785 POKE54296,0:RETURN 789 : 790 FORTB=1TO600:NEXT:RETURN 791 FORTB=1TO1000:NEXT:RETURN 792 FORTB=1TO2000:NEXT:RETURN 793 FORTB=1TO3000:NEXT:RETURN 820 GOSUB791:GOSUB760 823 POKEUN,0:PRINTLEFT$(UD$,24);"[154] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146]" 825 GETUI$:IFUI$<>CHR$(32)THEN825 830 RETURN 835 GOSUB791:GOSUB760 837 POKEUN,0:PRINTLEFT$(UD$,24);"[154] PRESS SPACE BAR TO CONTINUE [146][159]" 840 GETUI$:IFUI$<>CHR$(32)THEN840 845 RETURN 899 : 1000 PRINT"[147]"UC$;:RESTORE:B=0:K=0:W=0 1010 POKE53280,0:POKE53281,0:POKE53272,21 1020 UP=0 1099 : 1100 PRINT"[150][147] DO NOT PRESS  RETURN [146] KEY!":GOSUB730 1110 GOSUB793 1119 : 1200 A=RND(-TI) 1380 FORI=1TO10:FD=0 1400 PRINT"[147][159] WHAT'S THE MISSING NUMBERR?":GOSUB700 1410 PRINT" 0 1 [164] 3 4 5 6 7 8 9 10[155]":GOSUB760:GOSUB760 1420 GETR$:IFR$=""THEN1420 1425 IFR$="2"THENPRINT"[145][145][145] 0 1 [158]2 3 4 5 6 7 8 9 10 [155]" 1427 IFR$="2"THENGOSUB2300:GOSUB790:FD=0:GOTO1450 1430 IFFD>1THENW=W+1:PRINT"[145][145][145]":GOSUB3125 1440 GOSUB2100:GOTO1400 1449 : 1450 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1460 PRINT" 0 1 2 3 [164] 5 6 7 8 9 10":GOSUB760:GOSUB760 1470 GETR$:IFR$=""THEN1470 1475 IFR$="4"THENPRINT"[145][145][145] 0 1 2 3 [158]4 5 6 7 8 9 10 " 1477 IFR$="4"THENGOSUB2300:GOSUB790:FD=0:GOTO1500 1480 IFFD>1THENW=W+1:PRINT"[145][145][145]":GOSUB3175 1490 GOSUB2100:GOTO1450 1499 : 1500 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1510 PRINT" 0 1 2 [164] 4 5 6 7 8 9 10":GOSUB760:GOSUB760 1520 GETR$:IFR$=""THEN1520 1525 IFR$="3"THENPRINT"[145][145][145] 0 1 2 [158]3 4 5 6 7 8 9 10 " 1527 IFR$="3"THENGOSUB2300:GOSUB790:FD=0:GOSUB1550 1530 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3150 1540 GOSUB2100:GOTO 1500 1549 : 1550 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1560 PRINT" 0 1 2 3 4 [164] 6 7 8 9 10":GOSUB760:GOSUB760 1570 GETR$:IFR$=""THEN1570 1575 IFR$="5"THENPRINT"[145][145][145] 0 1 2 3 4 [158]5 6 7 8 9 10 " 1577 IFR$="5"THENGOSUB2300:GOSUB790:FD=0:GOTO1600 1580 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3200 1590 GOSUB2100:GOTO1550 1599 : 1600 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1610 PRINT" 0 1 2 3 4 5 6 [164] 8 9 10":GOSUB760:GOSUB760 1620 GETR$:IFR$=""THEN1620 1625 IFR$="7"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 [158]7 8 9 10 " 1627 IFR$="7"THENGOSUB2300:GOSUB790:FD=0:GOTO1650 1630 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3250 1640 GOSUB2100:GOTO1600 1649 : 1650 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1660 PRINT" 0 1 2 3 4 5 6 7 8 [164] 10":GOSUB760:GOSUB760 1670 GETR$:IFR$=""THEN1670 1675 IFR$="9"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 7 8 [158]9 10 " 1677 IFR$="9"THENGOSUB2300:GOSUB790:FD=0:GOTO1700 1680 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3300 1690 GOSUB2100:GOTO1650 1699 : 1700 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1710 PRINT" 0 [164] 2 3 4 5 6 7 8 9 10":GOSUB760:GOSUB760 1720 GETR$:IFR$=""THEN1720 1725 IFR$="1"THENPRINT"[145][145][145] 0 [158]1 2 3 4 5 6 7 8 9 10 " 1727 IFR$="1"THENGOSUB2300:GOSUB790:FD=0:GOTO1750 1730 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3100 1740 GOSUB2100:GOTO1700 1749 : 1750 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1760 PRINT" 0 1 2 3 4 5 6 7 [164] 9 10":GOSUB760:GOSUB760 1770 GETR$:IFR$=""THEN1770 1775 IFR$="8"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 7 [158]8 9 10 " 1777 IFR$="8"THENGOSUB2300:GOSUB790:FD=0:GOTO1800 1780 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3275 1790 GOSUB2100:GOTO1750 1799 : 1800 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1810 PRINT" 0 1 2 3 4 5 [164] 7 8 9 10":GOSUB760:GOSUB760 1820 GETR$:IFR$=""THEN1820 1825 IFR$="6"THENPRINT"[145][145][145] 0 1 2 3 4 5 [158]6 7 8 9 10 " 1827 IFR$="6"THENGOSUB2300:GOSUB790:FD=0:GOTO1850 1830 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3225 1840 GOSUB2100:GOTO1800 1849 : 1850 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1860 PRINT" 0 1 2 3 4 5 6 7 8 9 [164][164]":GOSUB760:GOSUB760 1870 GETR$:IFR$=""THEN1870 1875 IFR$="1"THENPRINT"[145][145][145] 0 1 2 3 4 5 6 7 8 9 [158]10 " 1877 IFR$="1"THENGOSUB2300:GOSUB790:FD=0:GOTO1900 1880 IFFD>1THENPRINT" [145][145][145]":W=W+1:GOSUB3325 1890 GOSUB2100:GOTO1850 1899 : 1900 PRINT"[147][159] WHAT'S THE MISSING NUMBER?" 1910 PRINT" [164] 1 2 3 4 5 6 7 8 9 10":GOSUB760:GOSUB760 1920 GETR$:IFR$=""THEN1920 1925 IFR$="0"THENPRINT"[145][145][145][158] 0 1 2 3 4 5 6 7 8 9 10 " 1927 IFR$="0"THENGOSUB2300:GOSUB791:GOTO1950 1930 IFFD>1THENPRINT"[145][145][145]":W=W+1:GOSUB3350 1940 GOSUB2100:GOTO1900 1950 GOTO3400 1999 : 2100 REM WRONG - NO 2105 POKE53280,10 2110 PRINT" @@@@@ 2115 [153]" @@@ @@@ 2120 PRINT" @@ @@ 2125 [153]" @@ (null) (null) @@ 2130 PRINT" @@ [215] [215] @@ 2135 [153]" (null)@ @RIGHT$ 2140 PRINT" [194][194] U [194][200] 2145 [153]" MID$PEEK PEEK(null) 2150 PRINT" [194] [206][163][163][163][205] [194] 2155 [153]" ( ) 2160 PRINT" [205] [206] 2165 [153]" (null) (null) 2170 PRINT" [202][198][203] 2175 UP[178]UP[171]1:[141]730:[141]790:[151]53280,0 2185 FD[178]FD[170]1:K[178]K[170]1:[142] 2199 : 2200 [145]A[170]1[141]3350,3100,3125,3150,3175,3200,3225,3250,3275,3300,3325 2210 [141]792:[141]760 2220 M[178]M[170]1:[142] 2299 : 2300 [143] SMILE - YES 2305 [151]53280,13 2310 [153]"PRINTONONONONON @@@@@ 2315 PRINT" @@@ @@@ 2320 [153]" @@ @@ 2325 PRINT" @@ [206] [205] @@ 2330 [153]" @@ COS LOG @@ 2335 PRINT" [213]@ @[201] 2340 [153]" CHR$PEEK U PEEKLEFT$ 2345 PRINT" [202][194] [165] [167] [194][203] 2350 [153]" PEEK FN THEN PEEK 2355 PRINT" ( [205] [206] ) 2360 [153]" (null) TAB(TAB(TAB( (null) 2365 PRINT" [205] [206] 2370 [153]" MID$ASC(null) 2375 GOSUB700:GOSUB791:POKE53280,0:PRINT"[147]" 2380 RETURN 2399 : 2500 PRINT" ";:US$="0123456789H":UL=1 2510 IFA=10THENUL=2 2520 GOSUB35:RETURN 3000 REM LARGE FIGURES 3010 GOSUB850:PRINT"":RETURN 3100 PRINT" [169] " 3105 PRINT"  " 3110 PRINT"  " 3115 PRINT"  " 3120 PRINT"  ":RETURN 3125 PRINT" [169] [223]" 3130 PRINT"  " 3135 PRINT" [169] [146][169]" 3140 PRINT" [169] [146][169]" 3145 PRINT" [169] [146]":RETURN 3150 PRINT" [169] [223]" 3155 PRINT"  " 3160 PRINT"  " 3165 PRINT"  " 3170 PRINT" [223] [146][169]":RETURN 3175 PRINT"  " 3180 PRINT"   " 3185 PRINT"  " 3190 PRINT"  " 3195 PRINT"  ":RETURN 3200 PRINT"  " 3205 PRINT"  " 3210 PRINT" [223] [223]" 3215 PRINT"  " 3220 PRINT" [223] [146][169]":RETURN 3225 PRINT" [169] [223]" 3230 PRINT"  " 3235 PRINT"  [223]" 3240 PRINT"   " 3245 PRINT" [223] [146][169]":RETURN 3250 PRINT"  " 3255 PRINT"  " 3260 PRINT"  " 3262 PRINT"  " 3270 PRINT"  ":RETURN 3275 PRINT" [169] [223]" 3280 PRINT" [223] [169]" 3285 PRINT" [169] [223]" 3290 PRINT"   " 3295 PRINT" [223] [146][169]":RETURN 3300 PRINT" [169] [223]" 3305 PRINT"   " 3310 PRINT" [223] " 3315 PRINT"  " 3320 PRINT" [223] [146][169]":RETURN 3325 PRINT" [169] [169] [223]" 3330 PRINT"    " 3335 PRINT"    " 3340 PRINT"    " 3345 PRINT"  [146][223] [146][169]":RETURN 3350 PRINT" [169] [223]" 3355 PRINT"   " 3360 PRINT"   " 3365 PRINT"   " 3370 PRINT" [223] [146][169]":RETURN 3400 PRINT"[147][147] SCORE BOARD [146]" 3405 IFK=0THENPRINT"[158] EXCELLENT! [146]" 3410 IFK=0THENGOSUB700:GOSUB790 3415 IFK=0THENPRINT"[153] YOU HAVE FOUND ALL THE MISSING NUMBERS!" 3420 IFK=0THENGOSUB792:GOSUB835:GOTO3500 3425 IFK=1THENPRINT"[158] YOU MADE 1 BLOOPER,":GOSUB791 3430 IFK>1THENPRINT"[158] YOU MADE"K"BLOOPERS.":GOSUB791 3435 IFW=1THENPRINT" YOU NEEDED 1 PROMPT." 3440 IFW>1THENPRINT" YOU NEEDED"W"PROMPTS." 3445 IFK=1THENPRINT" GOOD! NOW TRY TO GET ALL THE NUMBERS." 3450 IFK>1THENPRINT" DON'T GIVE UP. TRY AGAIN!" 3490 GOSUB730:GOSUB792:GOSUB835 3499 : 3500 REM DECISION TIME 3505 PRINT"[147] YOU HAVE A CHOICE:":GOSUB790:GOSUB760 3510 PRINT" PRESS  P [146] TO PLAY AGAIN 3515 [153]" PRESS  M WAIT TO RETURN TO THE DISK MENU 3520 GETR$:IFR$<>"[208]"ANDR$<>"[205]"ANDR$<>"P"ANDR$<>"M"THEN3520 3525 IFR$="P"THENRESTORE:GOTO100 3530 IFR$="[208]"THENRESTORE:GOTO100 3535 PRINT"[147] RETURNING TO THE DISK MENU. 3540 [147]"MENU",8 3545 [138] 3550 [128] 3599 : 5000 [143] DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1982 5010 [143] PROJECT DIRECTOR: FRAMK WINTER 5020 [143] PROGRAM NAME: MISSING NUMBER 5030 [143] WRITTEN BY: MARTY DE JONGHE 5040 [143] REVISED BY: JENNIFER BRASCH" 5050 REM SHRUNK BY ED VANDERZEEUW 1989 5060 REM UPDATED BY BILL CUMBERLAND 1989 AND 1990 5100 REM WHC 90:11:28/92:07:11/93:03:26